home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib18.dsk / STORM WARNING.bas < prev    next >
BASIC Source File  |  2023-02-26  |  5KB  |  54 lines
  1. 10  REM  **********************
  2. 11  REM  *   STORM WARNING    *
  3. 12  REM  *  BY ROBERT DEVINE  *
  4. 13  REM  * COPYRIGHT (C) 1984 *
  5. 14  REM  * BY MICROSPARC, INC *
  6. 15  REM  * LINCOLN, MA. 01773 *
  7. 16  REM  **********************
  8. 90  PRINT  CHR$(4)"MAXFILES 1"
  9. 100  TEXT : HOME : PRINT  CHR$(4)"BLOAD OILER": CALL 734: REM  SET DOS FAST LOAD
  10. 110  PRINT  CHR$(4)"BLOAD SPEAK/SOUND": PRINT  CHR$(4)"BLOAD SLOTFINDER": CALL 36864: REM  LOAD SPEECH ROUTINE/TEST FOR MOCKINGBOARD
  11. 120  IF  PEEK(6) = 0  THEN  POKE 768,96: POKE 846,96: GOTO 140: REM  DISABLE SPEECH & SOUND ROUTINES
  12. 130  CALL 874: REM INITIALIZE SOUND GENERATOR
  13. 140  HIMEM: 20480: HOME : HGR 
  14. 150  PRINT  CHR$(4)"BLOAD SHAPES": CALL 37799
  15. 160  HGR : POKE 251,80: POKE 252,58: POKE 253,97: POKE 254,23: POKE 255,12: CALL 37679: VTAB 21: HTAB 13: PRINT "COPYRIGHT 1984": HTAB 12: PRINT "ROBERT R. DEVINE"
  16. 170  POKE 26,165: POKE 27,134: POKE 28,96: POKE 29,134: POKE 1022,25: POKE 1023,3: CALL 768
  17. 180  POKE 252,50: POKE 253,140: POKE 255,8: POKE 254,32: FOR Y = 1 TO 7: FOR X = 1 TO 7: CALL 37526: NEXT X: POKE 254, PEEK(254) +1: POKE 255, PEEK(255) +1: NEXT Y
  18. 190  POKE 251,125: POKE 252,145: POKE 253,159: POKE 254,15: POKE 255,10: CALL 37679: REM  DRAW TRUCK
  19. 200  POKE 251,97: POKE 252,87: POKE 253,126: POKE 254,4: POKE 255,0: CALL 37679: POKE 251,98: POKE 254,9: POKE 255,5: CALL 37679: REM   DRAW 2 HOUSES
  20. 210  POKE 251,130: POKE 252,0: POKE 253,39: POKE 254,9: POKE 255,4: CALL 37679: HOME : REM DRAW SUN
  21. 220 X =  PEEK(49235):A$ = "........................................THIS IS MELVIN BONNER WITH TODAY'S WEATHER FORECAST -- SUNNY AND WARM -- JUST BEAUTIFUL -- NOT A CLOUD TO BE SEEN ANYWHERE -- A GREAT DAY FOR OUTDOOR FUN"
  22. 225  POKE 26,230: POKE 27,120: POKE 28,184: POKE 29,120: CALL 768: REM  THIS IS MELVIN BONNER .......
  23. 230  POKE 252,90: POKE 253,104: POKE 254,13: POKE 255,12: POKE 251,131:L =  LEN(A$): FOR X = 1 TO L: POKE 37680,96: IF X/2 =  INT(X/2)  THEN  POKE 37680,128
  24. 235  IF  PEEK(25) = 0  AND T < >99  THEN  POKE 26,201: POKE 27,133: POKE 28,96: POKE 29,133: CALL 768:T = 99: REM  SUNNY AND WARM....
  25. 240  CALL 37679:S = L -X: VTAB 22: PRINT  MID$ (A$,X,40);: IF S <40  THEN  PRINT  MID$ (A$,1,39 -S)
  26. 250  NEXT X: HOME : POKE 37680,0
  27. 260  FOR J = 1 TO 2: POKE 251,117: POKE 252,0: POKE 253,39: POKE 254,9: POKE 255,0: CALL 37679: REM   DRAW CLOUD
  28. 265  POKE 8,112: POKE 9,129: CALL 846: REM THUNDER
  29. 270  POKE 251,97: POKE 252,87: POKE 253,126: POKE 254,4: POKE 255,0: CALL 37679: POKE 251,98: POKE 254,9: POKE 255,5: CALL 37679: REM  DRAW 2 HOUSES
  30. 280  POKE 251,91: POKE 252,40: POKE 253,86: POKE 254,7: POKE 255,3: CALL 37679: POKE 6,3: POKE 7,20: CALL 37416: CALL 37606: POKE 6,3: POKE 7,20: CALL 37416: GOSUB 420: REM  LIGHTNING STRIKE
  31. 290  POKE 251,119: POKE 252,37: POKE 253,66: POKE 254,5: POKE 255,1: CALL 37679: REM  LEFT FUNNEL
  32. 300  POKE 252,67: POKE 253,117: POKE 254,4: POKE 255,0: FOR X = 99 TO 113  STEP 2: POKE 251,X: CALL 37679: POKE 6,3: POKE 7,20: CALL 37416: NEXT X: REM  DESTROY LEFT HOUSE
  33. 310  POKE 251,113: GOSUB 420: REM  ERASE #113
  34. 320  POKE 251,115: POKE 252,87: POKE 253,126: CALL 37679: REM  LEFT RUBBLE
  35. 330  POKE 251,119: POKE 252,37: POKE 253,66: POKE 254,5: POKE 255,1: GOSUB 420: REM  ERASE LEFT FUNNEL
  36. 340  POKE 251,117: POKE 252,0: POKE 253,39: POKE 254,9: POKE 255,0: CALL 37679: POKE 254,10: FOR Y = 1 TO 3: FOR X = 1 TO 7: CALL 37526: NEXT X: POKE 254, PEEK(254) +1: POKE 255, PEEK(255) +1: NEXT Y: REM  MOVE CLOUD RIGHT 3 BYTES
  37. 350  POKE 251,91: POKE 252,40: POKE 253,86: POKE 254,10: POKE 255,6: CALL 37679: POKE 6,3: POKE 7,20: CALL 37416: CALL 37606: POKE 6,3: POKE 7,20: CALL 37416: GOSUB 420: REM  LIGHTNING STRIKE
  38. 355  POKE 8,112: POKE 9,129: CALL 846: REM THUNDER
  39. 360  POKE 252,87: POKE 253,108: POKE 254,9: POKE 255,5: FOR X = 1 TO 40: POKE 251,94: IF X/2 =  INT(X/2)  THEN  POKE 251,95
  40. 370  CALL 37679: POKE 6,2: POKE 7,2: CALL 37416: NEXT X: REM  BURN HOUSE #2
  41. 380  POKE 251,116: POKE 253,126: CALL 37679: FOR X = 1 TO 100: NEXT : REM RUBBLE
  42. 390  IF J = 2  THEN  HOME : GOTO 430
  43. 400  POKE 251,117: POKE 252,0: POKE 253,39: POKE 254,12: POKE 255,2: FOR Y = 1 TO 2: FOR X = 1 TO 7: CALL 37437: NEXT X: POKE 254, PEEK(254) -1: POKE 255, PEEK(255) -1: NEXT Y: POKE 254, PEEK(254) +1: FOR X = 1 TO 7: CALL 37437: NEXT 
  44. 410  POKE 251,116: POKE 252,87: POKE 253,126: POKE 254,9: POKE 255,5: GOSUB 420: NEXT J: REM  ERASE RUBBLE
  45. 420  POKE 37696,81: POKE 37697,38: CALL 37679: POKE 37696,234: POKE 37697,234: RETURN 
  46. 430  POKE 251,131: POKE 254,13: POKE 255,12: POKE 37696,81: POKE 37697,38: POKE 252,90: POKE 253,104: POKE 37680,128: CALL 37679: REM   ERASE MAN
  47. 440  POKE 37680,160: CALL 37679: FOR X = 90 TO 130  STEP 2: CALL 37679: POKE 252,X: POKE 253,X +14: IF  PEEK(37680) = 160  THEN  POKE 37680,192: GOTO 460
  48. 450  POKE 37680,160
  49. 460  CALL 37679: FOR T = 1 TO 40: NEXT T,X: CALL 37679:X =  PEEK(49235): VTAB 23: HTAB 15: FLASH : PRINT " OOPS !! ": NORMAL : POKE 37680,0
  50. 465  POKE 26,213: POKE 27,133: POKE 28,208: POKE 29,133: CALL 768: REM  OPPS !!!
  51. 470  POKE 37696,234: POKE 37697,234
  52. 480  POKE 251,126: POKE 252,145: POKE 253,159: POKE 254,15: POKE 255,10: CALL 37679: POKE 254,16: FOR X = 1 TO 30: FOR Y = 1 TO 7: CALL 37526: NEXT Y: POKE 254, PEEK(254) +1: POKE 255, PEEK(255) +1: NEXT X
  53. 490  HOME : HGR :X =  PEEK(49234)
  54. 500  PRINT  CHR$(4)"BRUN SW-M"